Changeset 14139 for NEMO/trunk/src/OCE/DOM/istate.F90
- Timestamp:
- 2020-12-09T16:08:30+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/istate.F90
r14086 r14139 90 90 91 91 #if defined key_agrif 92 IF ( (.NOT.Agrif_root()).AND.ln_init_chfrpar ) THEN92 IF ( .NOT.Agrif_root() .AND. ln_init_chfrpar ) THEN 93 93 numror = 0 ! define numror = 0 -> no restart file to read 94 94 ln_1st_euler = .true. ! Set time-step indicator at nit000 (euler forward) … … 97 97 ! 98 98 ts (:,:,:,:,Kmm) = ts (:,:,:,:,Kbb) 99 !!st100 !!st need for a recent agrif version to be displaced toward ssh_init_rst with agrif_istate_ssh101 ssh(:,:, Kmm) = ssh(:,: ,Kbb)102 !!st end103 99 uu (:,:,: ,Kmm) = uu (:,:,: ,Kbb) 104 100 vv (:,:,: ,Kmm) = vv (:,:,: ,Kbb) … … 116 112 CALL day_init ! model calendar (using both namelist and restart infos) 117 113 ! ! Initialization of ocean to zero 114 ! 118 115 IF( ln_tsd_init ) THEN 119 116 CALL dta_tsd( nit000, ts(:,:,:,:,Kbb) ) ! read 3D T and S data at nit000 120 117 ! 121 ssh(:,:,Kbb) = 0._wp ! set the ocean at rest 122 uu (:,:,:,Kbb) = 0._wp 118 uu (:,:,:,Kbb) = 0._wp ! set the ocean at rest 123 119 vv (:,:,:,Kbb) = 0._wp 124 !125 IF( ll_wd ) THEN126 ssh(:,:,Kbb) = -ssh_ref ! Added in 30 here for bathy that adds 30 as Iterative test CEOD127 !128 ! Apply minimum wetdepth criterion129 !130 DO_2D( 1, 1, 1, 1 )131 IF( ht_0(ji,jj) + ssh(ji,jj,Kbb) < rn_wdmin1 ) THEN132 ssh(ji,jj,Kbb) = tmask(ji,jj,1)*( rn_wdmin1 - (ht_0(ji,jj)) )133 ENDIF134 END_2D135 ENDIF136 120 ! 137 121 ELSE ! user defined initial T and S … … 142 126 ENDIF 143 127 ts (:,:,:,:,Kmm) = ts (:,:,:,:,Kbb) ! set now values from to before ones 144 ssh (:,:,Kmm) = ssh(:,:,Kbb) 145 uu (:,:,:,Kmm) = uu (:,:,:,Kbb) 146 vv (:,:,:,Kmm) = vv (:,:,:,Kbb) 128 uu (:,:,:,Kmm) = uu (:,:,:,Kbb) 129 vv (:,:,:,Kmm) = vv (:,:,:,Kbb) 147 130 148 131 !
Note: See TracChangeset
for help on using the changeset viewer.