Changeset 2831 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Nov 23, 2022, 4:41:34 PM (2 years ago)

Author:

emillour

Message:

Generic PCM:
Add the possibility to include Venus-like aerosols (triggered by option
aerovenus=.true. in callphys.def); baseline is to use 5 distinct scatterers
but each may be turned on/off (via aerovenus1, aerovenus2, aerovenus2p,
aerovenus3, aerovenusUV flags which may be specified in callphys.def).
GG

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

@@ -130 +130 @@
          sum         = sum+STELLARF(N)
       end do
-      write(6,'("setspv: Stellar flux at 1 AU = ",f7.2," W m-2")') sum
+      write(6,'("setspv: Stellar flux at 1 AU = ",f9.2," W m-2")') sum
       print*,' '