New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14018 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90 – NEMO

Ignore:
Timestamp:
2020-12-02T18:22:24+01:00 (3 years ago)
Author:
techene
Message:

#2385 branch updated with trunk 13970

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         10^/utils/CI/sette@13795        sette 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90

    r13895 r14018  
    120120      e3t(:,:,:,Kbb)   = e3t(:,:,:,Kmm) 
    121121#endif  
    122       ! prepare writing restart 
    123       IF( lwxios ) THEN 
    124          CALL iom_set_rstw_var_active('ssmask') 
    125          CALL iom_set_rstw_var_active('tmask') 
    126          CALL iom_set_rstw_var_active('e3t_n') 
    127          CALL iom_set_rstw_var_active('e3u_n') 
    128          CALL iom_set_rstw_var_active('e3v_n') 
    129       END IF 
    130       ! 
    131122   END SUBROUTINE isfcpl_init 
    132123 
    … …  
    154145      END DO  
    155146      ! 
    156       IF( lwxios ) CALL iom_swap( cwxios_context ) 
    157       CALL iom_rstput( kt, nitrst, numrow, 'tmask'  , tmask , ldxios = lwxios ) 
    158       CALL iom_rstput( kt, nitrst, numrow, 'ssmask' , ssmask, ldxios = lwxios ) 
    159       CALL iom_rstput( kt, nitrst, numrow, 'e3t_n'  , ze3t , ldxios = lwxios ) 
    160       CALL iom_rstput( kt, nitrst, numrow, 'e3u_n'  , ze3u , ldxios = lwxios ) 
    161       CALL iom_rstput( kt, nitrst, numrow, 'e3v_n'  , ze3v , ldxios = lwxios ) 
    162       CALL iom_rstput( kt, nitrst, numrow, 'gdepw_n', zgdepw , ldxios = lwxios ) 
    163       IF( lwxios ) CALL iom_swap( cxios_context ) 
     147      CALL iom_rstput( kt, nitrst, numrow, 'tmask'  , tmask  ) 
     148      CALL iom_rstput( kt, nitrst, numrow, 'ssmask' , ssmask ) 
     149      CALL iom_rstput( kt, nitrst, numrow, 'e3t_n'  , ze3t   ) 
     150      CALL iom_rstput( kt, nitrst, numrow, 'e3u_n'  , ze3u   ) 
     151      CALL iom_rstput( kt, nitrst, numrow, 'e3v_n'  , ze3v   ) 
     152      CALL iom_rstput( kt, nitrst, numrow, 'gdepw_n', zgdepw ) 
    164153      ! 
    165154   END SUBROUTINE isfcpl_rst_write 
    … …  
    185174      !!---------------------------------------------------------------------- 
    186175      ! 
    187       CALL iom_get( numror, jpdom_auto, 'ssmask'  , zssmask_b, ldxios = lrxios   ) ! need to extrapolate T/S 
     176      CALL iom_get( numror, jpdom_auto, 'ssmask'  , zssmask_b   ) ! need to extrapolate T/S 
    188177 
    189178      ! compute new ssh if we open a full water column  
    … …  
    267256      !!---------------------------------------------------------------------- 
    268257      !  
    269       CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b, ldxios = lrxios   ) ! need to extrapolate T/S 
    270       !CALL iom_get( numror, jpdom_auto, 'wmask'  , zwmask_b, ldxios = lrxios   ) ! need to extrapolate T/S 
    271       !CALL iom_get( numror, jpdom_auto, 'gdepw_n', zdepw_b(:,:,:), ldxios = lrxios ) ! need to interpol vertical profile (vvl) 
     258      CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b   ) ! need to extrapolate T/S 
     259      !CALL iom_get( numror, jpdom_auto, 'wmask'  , zwmask_b  ) ! need to extrapolate T/S 
     260      !CALL iom_get( numror, jpdom_auto, 'gdepw_n', zdepw_b(:,:,:) ) ! need to interpol vertical profile (vvl) 
    272261      ! 
    273262      !  
    … …  
    414403      !!---------------------------------------------------------------------- 
    415404      ! 
    416       CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b, ldxios = lrxios ) 
    417       CALL iom_get( numror, jpdom_auto, 'e3u_n'  , ze3u_b  , ldxios = lrxios ) 
    418       CALL iom_get( numror, jpdom_auto, 'e3v_n'  , ze3v_b  , ldxios = lrxios ) 
     405      CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b ) 
     406      CALL iom_get( numror, jpdom_auto, 'e3u_n'  , ze3u_b  ) 
     407      CALL iom_get( numror, jpdom_auto, 'e3v_n'  , ze3v_b  ) 
    419408      ! 
    420409      ! 1.0: compute horizontal volume flux divergence difference before-after coupling 
    … …  
    525514 
    526515      ! get restart variable 
    527       CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b(:,:,:), ldxios = lrxios  ) ! need to extrapolate T/S 
    528       CALL iom_get( numror, jpdom_auto, 'e3t_n'  , ze3t_b(:,:,:)  , ldxios = lrxios ) 
    529       CALL iom_get( numror, jpdom_auto, 'tn'     , zt_b(:,:,:)    , ldxios = lrxios ) 
    530       CALL iom_get( numror, jpdom_auto, 'sn'     , zs_b(:,:,:)    , ldxios = lrxios ) 
     516      CALL iom_get( numror, jpdom_auto, 'tmask'  , ztmask_b(:,:,:) ) ! need to extrapolate T/S 
     517      CALL iom_get( numror, jpdom_auto, 'e3t_n'  , ze3t_b(:,:,:)  ) 
     518      CALL iom_get( numror, jpdom_auto, 'tn'     , zt_b(:,:,:)    ) 
     519      CALL iom_get( numror, jpdom_auto, 'sn'     , zs_b(:,:,:)    ) 
    531520 
    532521      ! compute run length 
Note: See TracChangeset for help on using the changeset viewer.