Changeset 566 for trunk/LMDZ.MARS/libf/phymars/inifis.F

Timestamp:

Mar 7, 2012, 3:48:18 PM (13 years ago)

Author:

acolaitis

Message:

Something wierd happened in the last commit... So back to where it was and retry... Update to pbl_parameter so that several values of z_out can be sought in one pass. Pbl_parameter can also now be called when calltherm=false, as long as callrichsl=true.

File:

• trunk/LMDZ.MARS/libf/phymars/inifis.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/inifis.F

@@ -249 +249 @@
      $              "1-> new correction",
      $              "(matters only if callnirco2=T)"
-         nircorr=0      !default value
+         nircorr=1      !default value
          call getin("nircorr",nircorr)
          write(*,*) " nircorr = ",nircorr
@@ -290 +290 @@
          endif
 
-#ifndef MESOSCALE
          if (calladj .and. callrichsl .and. (.not. calltherm)) then
           print*,'You should not be calling the convective adjustment
@@ -301 +300 @@
           stop
          endif
-#endif
+
          write(*,*) "call CO2 condensation ?"
          callcond=.true. ! default value