- Timestamp:
- 2020-07-02T12:40:30+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools @HEADtools5 ^/vendors/AGRIF/dev @HEADext/AGRIF4 ^/utils/tools/@HEAD tools 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/istate.F90
r13193 r13219 34 34 USE lib_mpp ! MPP library 35 35 USE restart ! restart 36 #if defined key_agrif 37 USE agrif_oce_interp 38 USE agrif_oce 39 #endif 36 40 37 41 IMPLICIT NONE … … 71 75 !!gm Why not include in the first call of dta_tsd ? 72 76 !!gm probably associated with the use of internal damping... 73 77 CALL dta_tsd_init ! Initialisation of T & S input data 74 78 !!gm to be moved in usrdef of C1D case 75 79 ! IF( lk_c1d ) CALL dta_uvd_init ! Initialization of U & V input data … … 85 89 #endif 86 90 91 #if defined key_agrif 92 IF ( (.NOT.Agrif_root()).AND.ln_init_chfrpar ) THEN 93 numror = 0 ! define numror = 0 -> no restart file to read 94 ln_1st_euler = .true. ! Set time-step indicator at nit000 (euler forward) 95 CALL day_init 96 CALL agrif_istate( Kbb, Kmm, Kaa ) ! Interp from parent 97 ! 98 ts (:,:,:,:,Kmm) = ts (:,:,:,:,Kbb) 99 ssh (:,:,Kmm) = ssh(:,:,Kbb) 100 uu (:,:,:,Kmm) = uu (:,:,:,Kbb) 101 vv (:,:,:,Kmm) = vv (:,:,:,Kbb) 102 ELSE 103 #endif 87 104 IF( ln_rstart ) THEN ! Restart from a file 88 105 ! ! ------------------- … … 101 118 ! 102 119 ssh(:,:,Kbb) = 0._wp ! set the ocean at rest 120 uu (:,:,:,Kbb) = 0._wp 121 vv (:,:,:,Kbb) = 0._wp 122 ! 103 123 IF( ll_wd ) THEN 104 124 ssh(:,:,Kbb) = -ssh_ref ! Added in 30 here for bathy that adds 30 as Iterative test CEOD … … 112 132 END_2D 113 133 ENDIF 114 uu (:,:,:,Kbb) = 0._wp 115 vv (:,:,:,Kbb) = 0._wp 116 ! 134 ! 117 135 ELSE ! user defined initial T and S 118 136 DO jk = 1, jpk … … 152 170 ! 153 171 ENDIF 172 #if defined key_agrif 173 ENDIF 174 #endif 154 175 ! 155 176 ! Initialize "now" and "before" barotropic velocities:
Note: See TracChangeset
for help on using the changeset viewer.