- Timestamp:
- 2020-10-27T18:27:17+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90
r13680 r13683 96 96 CALL dom_qco_zgr( Kbb, Kmm, Kaa ) ! interpolation scale factor, depth and water column 97 97 ! 98 #if defined key_agrif 99 ! We need to define r3[tuv](Kaa) for AGRIF initialisation (should not be a 100 ! problem for the restartability...) 101 r3t(:,:,Kaa) = r3t(:,:,Kmm) 102 r3u(:,:,Kaa) = r3u(:,:,Kmm) 103 r3v(:,:,Kaa) = r3v(:,:,Kmm) 104 #endif 105 ! 98 106 IF(lwxios) THEN ! define variables in restart file when writing with XIOS 99 107 CALL iom_set_rstw_var_active('sshb') … … 123 131 CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm), r3f(:,:) ) 124 132 ! 125 #if defined key_agrif126 ! We need to define r3[tuv](Kaa) for AGRIF initialisation (should not be a problem for the restartability...)127 ! r3t(:,:,Kaa) = r3t(:,:,Kmm)128 ! r3u(:,:,Kaa) = r3u(:,:,Kmm)129 ! r3v(:,:,Kaa) = r3v(:,:,Kmm)130 #endif131 133 ! 132 134 END SUBROUTINE dom_qco_zgr
Note: See TracChangeset
for help on using the changeset viewer.