Changeset 359 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F

Timestamp:

May 24, 2002, 3:44:47 PM (22 years ago)

Author:

lmdzadmin

Message:

Menage sur les etats initiaux
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/startvar.F

@@ -426 +426 @@
               ENDIF
               CALL gr_dyn_fi(1, iml, jml, nbindex, psol_dyn, champ)
-    ! PB ajout pour masque terre mer fractionneiare    
-          CASE ('zmasq')
-              IF (.NOT. ALLOCATED(masque) ) THEN
-                  CALL start_init_orog ( iml, jml,lon_in, lat_in,
-     .              jml2, lon_in2,lat_in2 , interbar )
-              ENDIF
-              IF ( SIZE(masque) .NE. SIZE(lon_in)*SIZE(lat_in) ) THEN
-                WRITE(*,*)
-     . 'STARTVAR module has been initialized to the wrong size'
-                 STOP
-             ENDIF
-             CALL gr_dyn_fi(1, iml, jml, nbindex, masque, champ)
             CASE ('zmea')
               IF ( .NOT.ALLOCATED(relief)) THEN