Changeset 622 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

Apr 16, 2012, 12:22:40 PM (13 years ago)

Author:

jleconte

Message:

• Added consistency checks for calculations including water and global1d+diurnal.
• Corrected small bugs in precipitation scheme

File:

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

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

@@ -274 +274 @@
            call getin("global1d",global1d)
            write(*,*) "global1d = ",global1d
+           ! Test of incompatibility:
+           ! if global1d is true, there should not be any diurnal cycle
+           if (global1d.and.diurnal) then
+            print*,'if global1d is true, diurnal must be set to false'
+            stop
+           endif
+
            if (global1d) then
              PRINT *,'Solar Zenith angle (deg.) ?'