Changeset 2331 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

Timestamp:

Jul 17, 2015, 2:17:02 PM (9 years ago)

Author:

lguez

Message:

Fixed regression from revision 2315: comvert.h was replaced by
vertical_layers_mod in test_disvert, but variables ap, bp, preff of
vertical_layers_mod were not defined. So, in main program ce0l, moved
call to test_disvert after call to Init_Phys_lmdz, and inserted in
between them calls to infotrac_init and iniphysiq (required). Had then
to remove the call to infotrac_init in etat0dyn_netcdf. In main
program ce0l, had to remove the call to InitComgeomphy? since this is
done in iniphysiq.

In main program ce0l: no need to use indice_sol_mod; removed
preprocessor tests on CPP_PHYS in ce0l.

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

@@ -75 +75 @@
 
   IF (nlayer/=klev) THEN
-    WRITE (lunout, *) 'STOP in ', trim(modname)
-    WRITE (lunout, *) 'Problem with dimensions :'
     WRITE (lunout, *) 'nlayer     = ', nlayer
     WRITE (lunout, *) 'klev   = ', klev
-    abort_message = ''
-    CALL abort_gcm(modname, abort_message, 1)
+    CALL abort_gcm(modname, 'Problem with dimensions', 1)
   END IF