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

Timestamp:

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

Author:

lmdzadmin

Message:

Menage sur les etats initiaux
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F (modified) (6 diffs)

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

@@ -107 +107 @@
       real, dimension(klon) :: ocemask_fi
       integer :: isst(klon-2)
-
+      real zx_tmp_2d(iim,jjp1)
       !
       !   Constantes 
@@ -184 +184 @@
        CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0,
      , jjm ,rlonu,rlatv , interbar )
+!      masque = nint(masque)
       !
       WRITE(*,*) 'MASQUE construit : Masque'
-!      WRITE(*,'(97I1)') nINT(masque(:,:))
+      WRITE(*,'(97I1)') nINT(masque(:,:))
       !
       !
@@ -203 +204 @@
           zmasq(1 : klon) = 1.
       END WHERE 
-
-
-
-
+c
       varname = 'psol'
       psol(:,:) = 0.0
@@ -408 +406 @@
 C passage masque ocean a la grille physique
 C
+
+        write(*,*)'ocemask '
+        write(*,'(96i1)')int(ocemask)
         ocemask_fi(1) = ocemask(1,1)
         do j = 2, jjm
@@ -549 +550 @@
 !     ENDIF 
 
+      CALL gr_fi_ecrit(1,klon,iim,jjp1,zmasq,zx_tmp_2d)
+      write(*,*)'zmasq = '
+      write(*,'(96i1)')nint(zx_tmp_2d)
+      call gr_fi_dyn(1, klon, iip1, jjp1, zmasq, masque)
+      WRITE(*,*) 'MASQUE construit : Masque'
+      WRITE(*,'(97I1)') nINT(masque(:,:))
 
 
@@ -607 +614 @@
 C Ecriture etat initial physique
 C
+      write(*,*)'phystep ',dtvr,iphysiq,nbapp_rad
       phystep   = dtvr * FLOAT(iphysiq)
       radpas    = NINT (86400./phystep/ FLOAT(nbapp_rad) )
+      write(*,*)'phystep =', phystep, radpas
       co2_ppm   = 330.0
       solaire   = 1370.0