Changeset 1940 for trunk/LMDZ.GENERIC

Timestamp:

Jun 1, 2018, 11:19:41 AM (7 years ago)

Author:

jvatant

Message:

Adjust some outptut warnings about out-of-bounds temperature
that were not in agreement with what's actually done.
--JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90 (modified) (4 diffs)

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

@@ -721 +721 @@
             else
               print*,'***********************************************'
-              print*,'we allow model to continue with tlevrad=tgasmin' 
+              print*,'we allow model to continue with tlevrad<tgasmin' 
               print*,'  ... we assume we know what you are doing ... '
               print*,'  ... but do not let this happen too often ... '
               print*,'***********************************************'
-              !tlevrad(k)=tgasmin
+              !tlevrad(k)=tgasmin ! Used in the source function !
             endif
          elseif(tlevrad(k).gt.tgasmax)then
@@ -736 +736 @@
             else
               print*,'***********************************************'
-              print*,'we allow model to continue with tlevrad=tgasmax'  
+              print*,'we allow model to continue with tlevrad<tgasmax'  
               print*,'  ... we assume we know what you are doing ... '
               print*,'  ... but do not let this happen too often ... '
               print*,'***********************************************'
-              !tlevrad(k)=tgasmax
+              !tlevrad(k)=tgasmax ! Used in the source function !
             endif
          endif
@@ -754 +754 @@
             else
               print*,'***********************************************'
-              print*,'we allow model to continue with tmid=tgasmin'
+              print*,'we allow model to continue but with tmid=tgasmin'
               print*,'  ... we assume we know what you are doing ... '
               print*,'  ... but do not let this happen too often ... '
@@ -769 +769 @@
             else
               print*,'***********************************************'
-              print*,'we allow model to continue with tmid=tgasmin'
+              print*,'we allow model to continue but  with tmid=tgasmin'
               print*,'  ... we assume we know what you are doing ... '
               print*,'  ... but do not let this happen too often ... '