Changeset 227 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Jun 20, 2001, 12:31:09 PM (23 years ago)

Author:

lmdzadmin

Message:

* empty log message *

File:

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

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

@@ -43 +43 @@
       REAL :: t_ancien(klon,klev), q_ancien(klon,klev)      !
       ! declarations pour lecture glace de mer
+      REAL :: rugv(klon)
       INTEGER :: iml_lic, jml_lic, llm_tmp, ttm_tmp, iret
       INTEGER :: itaul(1), fid
@@ -582 +583 @@
       agesno = 0.
       deltat = 0.
-      frugs(:,is_oce) = rugmer
-      frugs(:,is_ter) = rugmer
-      frugs(:,is_lic) = rugmer
-      frugs(:,is_sic) = 0.001
+      frugs(1:klon,is_oce) = rugmer(1:klon)
+      frugs(1:klon,is_ter) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0)
+      frugs(1:klon,is_lic) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0)
+      frugs(1:klon,is_sic) = 0.001
 
       call physdem("startphy.nc",phystep,radpas, co2_ppm, solaire,