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 – NEMO

Changeset 15584


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

Add changes to exchange U and V during test coupling.

Location:
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src
Files:
8 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 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/IOM/restart.F90

    r11715 r15584  
    6060      !! 
    6161      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    62       CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
     62      CHARACTER(LEN=100)  ::   clname   ! ocean output restart file name 
    6363      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    6464      CHARACTER(LEN=52)   ::   clpname   ! ocean output restart file name including prefix for AGRIF 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/sbccpl.F90

    r15261 r15584  
    10831083         ssnd(jps_dummy_t)%clname = 'S_OC_DUMMY_T'    
    10841084         ssnd(jps_dummy_t)%laction = .TRUE. 
    1085       ENDIF 
     1085 
     1086         ! Send ocean surface currents even if they're not used.  
     1087         ssnd(jps_ocx1)%laction = .TRUE. 
     1088         ssnd(jps_ocy1)%laction = .TRUE. 
     1089     ENDIF 
    10861090 
    10871091 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/STO/stopar.F90

    r11715 r15584  
    746746      REAL(KIND=8)        ::   zrseed(4)           ! RNG seeds in real type (with same bits to save in restart) 
    747747      CHARACTER(LEN=20)   ::   clkt                ! ocean time-step defined as a character 
    748       CHARACTER(LEN=50)   ::   clname              ! restart file name 
     748      CHARACTER(LEN=100)  ::   clname              ! restart file name 
    749749      CHARACTER(LEN=9)    ::   clsto2d='sto2d_000' ! stochastic parameter variable name 
    750750      CHARACTER(LEN=9)    ::   clsto3d='sto3d_000' ! stochastic parameter variable name 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/TRD/trdmxl_rst.F90

    r11715 r15584  
    4343      INTEGER ::   jk                 ! loop indice 
    4444      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    45       CHARACTER(LEN=50)   ::   clname   ! output restart file name 
     45      CHARACTER(LEN=100)  ::   clname   ! output restart file name 
    4646      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
    4747      !!-------------------------------------------------------------------------------- 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/TOP/PISCES/SED/sedrst.F90

    r11715 r15584  
    4040      ! 
    4141      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character 
    42       CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
     42      CHARACTER(LEN=100)  ::   clname   ! trc output restart file name 
    4343      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
    4444      !!---------------------------------------------------------------------- 
    … …  
    215215      INTEGER  :: ji, jj, jk, jn 
    216216      REAL(wp), DIMENSION(1) ::  zinfo 
    217       CHARACTER(len=50) :: clname 
     217      CHARACTER(len=100) :: clname 
    218218      CHARACTER(len=20) :: cltra, name1  
    219219      REAL(wp), DIMENSION(jpoce,jpksed)   :: zdta    

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/TOP/TRP/trdmxl_trc_rst.F90

    r11715 r15584  
    3838      ! 
    3939      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    40       CHARACTER(LEN=50)   ::   clname   ! output restart file name 
     40      CHARACTER(LEN=100)  ::   clname   ! output restart file name 
    4141      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
    4242      CHARACTER (len=35) :: charout 

  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/TOP/trcrst.F90

    r11715 r15584  
    4949      ! 
    5050      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character 
    51       CHARACTER(LEN=50)   ::   clname   ! trc output restart file name 
     51      CHARACTER(LEN=100)  ::   clname   ! trc output restart file name 
    5252      CHARACTER(LEN=256)  ::   clpath   ! full path to ocean output restart file 
    5353      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.