Changeset 15776
- Timestamp:
- 2022-04-08T15:49:08+02:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/ICE/iceistate.F90
r15772 r15776 421 421 e3t_a(:,:,jk) = e3t_n(:,:,jk) 422 422 END DO 423 424 write(numout,*) "RSRH calling dom_vvl_interpol from iceistate"425 call lbc_lnk("iceistate", e3t_b, 'T', 1.0_wp)426 call lbc_lnk("iceistate", e3t_n, 'T', 1.0_wp)427 423 ! 428 424 ! Reconstruction of all vertical scale factors at now and before time-steps
Note: See TracChangeset
for help on using the changeset viewer.