Ignore:
Timestamp:
2018-06-01T11:26:52+02:00 (2 years ago)
Author:
flavoni
Message:

add bathy_meter field in domain_cfg.nc input files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/DOMAINcfg/src/domain.f90

    r9598 r9722  
    481481      CALL iom_rstput( 0, 0, inum, 'bottom_level' , REAL( mbkt, wp )*ssmask , ktype = jp_i4 )   ! nb of ocean T-points 
    482482      CALL iom_rstput( 0, 0, inum, 'top_level'    , REAL( mikt, wp )*ssmask , ktype = jp_i4 )   ! nb of ocean T-points (ISF) 
     483      DO jj = 1,jpj 
     484         DO ji = 1,jpi 
     485            z2d (ji,jj) = SUM ( e3t_0(ji,jj, 1:mbkt(ji,jj) ) ) * ssmask(ji,jj)  
     486         END DO 
     487      END DO 
     488      CALL iom_rstput( 0, 0, inum, 'bathy_metry'   , z2d , ktype = jp_r4 ) 
     489 
    483490      ! 
    484491      IF( ln_sco ) THEN             ! s-coordinate: store grid stiffness ratio  (Not required anyway) 
Note: See TracChangeset for help on using the changeset viewer.