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

Timestamp:

Mar 2, 2012, 11:06:03 AM (13 years ago)

Author:

acolaitis

Message:

Sorry, forgot a case in inifis.

File:

• trunk/LMDZ.MARS/libf/phymars/inifis.F (modified) (1 diff)

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

@@ -290 +290 @@
          endif
 
-         if (calladj .and. callrichsl) then
+         if (calladj .and. callrichsl .and. (.not. calltherm)) then
           print*,'You should not be calling the convective adjustment
-     & scheme with the Richardson surface-layer. This approach is not
+     & scheme with the Richardson surface-layer and without the thermals
+     &. This approach is not
      & physically consistent and can lead to unrealistic friction
      & values.'