Ignore:
Timestamp:
2013-11-20T18:04:09+01:00 (8 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : changes to improve compilation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

    r4187 r4294  
    238238            DO jj = 1,jpj_crs    
    239239               DO ji = 1,jpi_crs 
    240                   zprt(ji,jj) = gdept(ji,jj,mbkt(ji,jj)  ) * tmask(ji,jj,1) 
    241                   zprw(ji,jj) = gdepw(ji,jj,mbkt(ji,jj)+1) * tmask(ji,jj,1) 
     240                  zprt(ji,jj) = gdept_0(ji,jj,mbkt(ji,jj)  ) * tmask(ji,jj,1) 
     241                  zprw(ji,jj) = gdepw_0(ji,jj,mbkt(ji,jj)+1) * tmask(ji,jj,1) 
    242242               END DO 
    243243            END DO 
     
    246246         ENDIF 
    247247 
    248          CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0 )     !    ! reference z-coord. 
    249          CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0 ) 
    250          CALL iom_rstput( 0, 0, inum4, 'e3t_0'  , e3t_0   ) 
    251          CALL iom_rstput( 0, 0, inum4, 'e3w_0'  , e3w_0   ) 
     248         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! reference z-coord. 
     249         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
     250         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   ) 
     251         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    252252 
    253253         CALL iom_rstput(  0, 0, inum4, 'ocean_volume_t', ocean_volume_crs_t )  
     
    273273     IF( ln_zco ) THEN 
    274274         !                                                      ! z-coordinate - full steps 
    275         CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0 )     !    ! depth 
    276         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0 ) 
    277         CALL iom_rstput( 0, 0, inum4, 'e3t_0'  , e3t_0   )     !    ! scale factors 
    278         CALL iom_rstput( 0, 0, inum4, 'e3w_0'  , e3w_0   ) 
     275        CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! depth 
     276        CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
     277        CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )     !    ! scale factors 
     278        CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    279279     ENDIF 
    280280      !                                     ! ============================ 
Note: See TracChangeset for help on using the changeset viewer.