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 15772 for NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/ICE/iceistate.F90 – NEMO

Ignore:
Timestamp:
2022-04-08T12:40:22+02:00 (2 years ago)
Author:
frrh
Message:

Add lbc_lnk calls for GC5 restartability.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/ICE/iceistate.F90

    r14075 r15772  
    421421               e3t_a(:,:,jk) = e3t_n(:,:,jk) 
    422422            END DO 
     423 
     424write(numout,*) "RSRH calling dom_vvl_interpol from iceistate" 
     425call lbc_lnk("iceistate", e3t_b, 'T', 1.0_wp) 
     426call lbc_lnk("iceistate", e3t_n, 'T', 1.0_wp) 
    423427            ! 
    424428            ! Reconstruction of all vertical scale factors at now and before time-steps 
Note: See TracChangeset for help on using the changeset viewer.