Changeset 1227 for trunk/LMDZ.GENERIC/libf

Timestamp:

Apr 16, 2014, 11:35:28 AM (11 years ago)

Author:

emillour

Message:

Generic model:

• Fixed bug in infotrac.F90 which was only an issue when using 0 tracers (unnecessary tests on tracer number nq).
• Added missing initialization (allocations of comsoil_ arrays) in start2archive.

EM

Location:

trunk/LMDZ.GENERIC/libf

Files:

• dyn3d/infotrac.F90 (modified) (1 diff)
• phystd/start2archive.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/dyn3d/infotrac.F90

@@ -97 +97 @@
       ENDDO
 
-       IF( iadv(nq).EQ.1 ) PRINT *,' Choix du shema humidite '          &
-       ,'specifique pour la vapeur d''eau'
-       IF( iadv(nq).EQ.2 ) PRINT *,' Choix du shema  amont',' pour la'  &
-       ,' vapeur d''eau '
-       IF( iadv(nq).EQ.3 ) PRINT *,' Choix du shema  Van-Leer '         &
-       ,' pour la vapeur d''eau'
-       IF( iadv(nq).EQ.4 ) PRINT *,' Choix du shema  Van-Leer + '       &
-       ,' humidite specifique pour la vapeur d''eau'
+!       IF( iadv(nq).EQ.1 ) PRINT *,' Choix du shema humidite '          &
+!       ,'specifique pour la vapeur d''eau'
+!       IF( iadv(nq).EQ.2 ) PRINT *,' Choix du shema  amont',' pour la'  &
+!       ,' vapeur d''eau '
+!       IF( iadv(nq).EQ.3 ) PRINT *,' Choix du shema  Van-Leer '         &
+!       ,' pour la vapeur d''eau'
+!       IF( iadv(nq).EQ.4 ) PRINT *,' Choix du shema  Van-Leer + '       &
+!       ,' humidite specifique pour la vapeur d''eau'
 !
-       IF( (iadv(nq).LE.0).OR.(iadv(nq).GT.4) )   THEN
-        PRINT *,' Erreur dans le choix de iadv (nqtot).Corriger et '    &
-       ,' repasser car  iadv(nqtot) = ', iadv(nqtot)
-         CALL ABORT
-       ENDIF
+!       IF( (iadv(nq).LE.0).OR.(iadv(nq).GT.4) )   THEN
+!        PRINT *,' Erreur dans le choix de iadv (nqtot).Corriger et '    &
+!       ,' repasser car  iadv(nqtot) = ', iadv(nqtot)
+!         CALL ABORT
+!       ENDIF
 
       first = .TRUE.

trunk/LMDZ.GENERIC/libf/phystd/start2archive.F

@@ -150 +150 @@
       allocate(qsurf(ngridmx,nqtot))
       allocate(qsurfS(ip1jmp1,nqtot))
+! other array allocations:
+      call ini_comsoil_h(ngridmx)
 
       fichnom = 'start.nc'