Changeset 1147 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 4, 2014, 5:09:41 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. a suggestion by JL. do not modify tlevrad (if outside tgasmin or tgasmax) because used in source function.

File:

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

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

@@ -657 +657 @@
               print*,'  ... but do not let this happen too often ... '
               print*,'***********************************************'
-              tlevrad(k)=tgasmin
+              !tlevrad(k)=tgasmin
             endif
          elseif(tlevrad(k).gt.tgasmax)then
@@ -672 +672 @@
               print*,'  ... but do not let this happen too often ... '
               print*,'***********************************************'
-              tlevrad(k)=tgasmax
+              !tlevrad(k)=tgasmax
             endif
          endif