Changeset 2311 for LMDZ5/trunk/libf/phylmd/thermcell_flux.F90

Timestamp:

Jun 25, 2015, 9:45:24 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Further modifications to enforce physics/dynamics separation:

• moved iniprint.h and misc_mod back to dyn3d_common, as these should only be used by dynamics.
• created print_control_mod in the physics to store flags prt_level, lunout, debug to be local to physics (should be used rather than iniprint.h)
• created abort_physic.F90 , which does the same job as abort_gcm() did, but should be used instead when in physics.
• reactivated inifis (turned it into a module, inifis_mod.F90) to initialize physical constants and print_control_mod flags.

EM

File:

• LMDZ5/trunk/libf/phylmd/thermcell_flux.F90 (modified) (7 diffs)

LMDZ5/trunk/libf/phylmd/thermcell_flux.F90

@@ -14 +14 @@
 !---------------------------------------------------------------------------
 
+      USE print_control_mod, ONLY: prt_level,lunout
       IMPLICIT NONE
-#include "iniprint.h"
       
       INTEGER ig,l
@@ -103 +103 @@
                     print*,'detr_star(ig,l)',detr_star(ig,l)
                     abort_message = ''
-                    CALL abort_gcm (modname,abort_message,1)
+                    CALL abort_physic (modname,abort_message,1)
                endif
             endif
@@ -268 +268 @@
                print*,'N1 ig,l,entr',ig,l,entr(ig,l)
                abort_message = 'entr negatif'
-               CALL abort_gcm (modname,abort_message,1)
+               CALL abort_physic (modname,abort_message,1)
             endif
             if (detr(ig,l).gt.fm(ig,l)) then
@@ -297 +297 @@
                print*,'fm(ig,l)',fm(ig,l)
                abort_message = 'probleme dans thermcell flux'
-               CALL abort_gcm (modname,abort_message,1)
+               CALL abort_physic (modname,abort_message,1)
             endif
          enddo
@@ -325 +325 @@
                print*,'fm(ig,l)',fm(ig,l)
                abort_message = 'probleme dans thermcell flux'
-               CALL abort_gcm (modname,abort_message,1)
+               CALL abort_physic (modname,abort_message,1)
             endif
         enddo
@@ -427 +427 @@
                          print*,'fm(ig,l)',fm(ig,l)
                          abort_message = 'probleme dans thermcell_flux'
-                         CALL abort_gcm (modname,abort_message,1)
+                         CALL abort_physic (modname,abort_message,1)
                       endif
                       entr(ig,l+1)=entr(ig,l+1)-ddd
@@ -511 +511 @@
           print*,'fm(igout,l)',fm(igout,l)
           abort_message = ''
-          CALL abort_gcm (modname,abort_message,1)
+          CALL abort_physic (modname,abort_message,1)
           endif
       enddo