Changeset 2317

Timestamp:

Jun 26, 2015, 9:33:22 AM (9 years ago)

Author:

jyg

Message:

Bug fixing after physics/dynamic separation
enforcing in svn 2311 (corrections in
readaerosol.F90 and in dyn1d/lmdz1d.F90).

Location:

LMDZ5/trunk/libf/phylmd

Files:

• dyn1d/lmdz1d.F90 (modified) (2 diffs)
• readaerosol.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -23 +23 @@
       USE mod_1D_amma_read
       USE print_control_mod, ONLY: prt_level
-      USE vertical_layers_mod, ONLY: init_vertical_layers
 
       implicit none
@@ -542 +541 @@
       ENDIF
       ! initialize ap,bp, etc. in vertical_layers_mod
-      call init_vertical_layers(llm,preff,scaleheight, &
-                            ap,bp,presnivs,pseudoalt)
-
       sig_s=presnivs/preff
       plev =ap+bp*psurf

LMDZ5/trunk/libf/phylmd/readaerosol.F90

@@ -332 +332 @@
 !       IF (nbr_tsteps /= 12 .AND. nbr_tsteps /= 14) THEN
        IF (nbr_tsteps /= 12 ) THEN
-         CALL abort_physic('get_aero_fromfile', 'not the right number of months in aerosol file read (should be 12 for the moment)',1)
+    CALL abort_physic('get_aero_fromfile', 'not the right number of months in aerosol file read (should be 12 for the moment)' &
+                     ,1)
        ENDIF