Changeset 1716 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jun 8, 2017, 1:09:20 AM (8 years ago)

Author:

jvatant

Message:

Fix the accidental removal of changes from MT at r1714 in r1715 in callcorrk
JVO

File:

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

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

@@ -573 +573 @@
 
       if(kastprof)then
-
+      
+         if(.not.global1d)then ! garde-fou/safeguard added by MT (to be removed in the future)
+            write(*,*) 'You have to fix mu0, '
+            write(*,*) 'the cosinus of the solar angle'
+            stop
+         endif
+         
          ! Initial values equivalent to mugaz.
          DO l=1,nlayer