Changeset 13109 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domain.F90

Timestamp:

2020-06-16T12:07:28+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : major corrections in domcfg

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domain.F90 (modified) (2 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/domain.F90

@@ -108 +108 @@
          &             ln_cfmeta, ln_iscpl
 
-      NAMELIST/namdom/ nn_bathy, cn_topo, cn_bath, cn_lon, cn_lat, rn_scale, nn_interp, &
+      NAMELIST/namdom/ ln_read_cfg, nn_bathy, cn_domcfg, cn_topo, cn_bath, cn_lon, cn_lat, rn_scale, nn_interp, &
          &              rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,            &
          &             rn_atfp , rn_rdt   ,  ln_crs      , jphgr_msh ,                               &
@@ -405 +405 @@
       CALL iom_rstput( 0, 0, inum, 'top_level'    , REAL( mikt, wp )*ssmask , ktype = jp_i4 )   ! nb of ocean T-points (ISF)
       CALL iom_rstput( 0, 0, inum, 'isf_draft'    , risfdep , ktype = jp_r8 )
-      CALL iom_rstput( 0, 0, inum, 'bathy_metry'  , bathy   , ktype = jp_r8 )
+      DO jj = 1,jpj
+         DO ji = 1,jpi
+            z2d (ji,jj) = SUM ( e3t_0(ji,jj, 1:mbkt(ji,jj) ) ) * ssmask(ji,jj) 
+         END DO
+      END DO
+      CALL iom_rstput( 0, 0, inum, 'bathy_metry'   , z2d , ktype = jp_r8 )
       !
       !                              !== closed sea ==!