udo/exoplasim
Private
Public Access
1
0 Fork 0
Code Activity

Commented out write statements that make the diagnostics files huge

Browse Source
This commit is contained in:
maureenjcohen committed 2023-06-15 16:57:33 +01:00
1 parent dad3104d7d
commit 4e55d9abc6
1 file changed
+8 -8
Download Patch File Download Diff File Expand all files Collapse all files
exoplasim/plasim/src/radmod.f90
+8 -8
View File
@@ -1817,14 +1817,14 @@
ztemp1 = SQRT((1.0-ssa1)*(1.0-ssa1+2*bscat1*ssa1))
ztemp2 = SQRT((1.0-ssa2)*(1.0-ssa2+2*bscat2*ssa2))
if (mypid == NROOT) then
write(nud,*) "Aerosol number density:",nrho
write(nud,*) "Aerosol optical depth 1:",aod1
write(nud,*) "Aerosol u-factor 1:",zaeru1
write(nud,*) "Aerosol temp factor 1:",ztemp1
write(nud,*) "Aerosol diffusivity factor:",zmu00
write(nud,*) "Aerosol cos of solar zenith angle:",zmu0
endif
! if (mypid == NROOT) then
! write(nud,*) "Aerosol number density:",nrho
! write(nud,*) "Aerosol optical depth 1:",aod1
! write(nud,*) "Aerosol u-factor 1:",zaeru1
! write(nud,*) "Aerosol temp factor 1:",ztemp1
! write(nud,*) "Aerosol diffusivity factor:",zmu00
! write(nud,*) "Aerosol cos of solar zenith angle:",zmu0
! endif
do jlev=1,NLEV
where(losun(:) .and. nrho(:,jlev) > 0.)