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 15584 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/ICE – NEMO

Ignore:
Timestamp:
2021-12-08T10:47:44+01:00 (3 years ago)
Author:
frrh
Message:

Add changes to exchange U and V during test coupling.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/ICE/icerst.F90

    r11715 r15584  
    4949      ! 
    5050      CHARACTER(len=20)   ::   clkt     ! ocean time-step define as a character 
    51       CHARACTER(len=50)   ::   clname   ! ice output restart file name 
     51      CHARACTER(len=100)  ::   clname   ! ice output restart file name 
    5252      CHARACTER(len=256)  ::   clpath   ! full path to ice output restart file  
    5353      !!---------------------------------------------------------------------- 
    … …  
    6969            clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 
    7070            clpath = TRIM(cn_icerst_outdir)  
     71 
    7172            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 
    7273            IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.