Changeset 4572
- Timestamp:
- 2014-03-26T09:18:40+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DOM/istate_tam.F90
r3611 r4572 36 36 USE zpshde_tam 37 37 USE eosbn2_tam 38 USE divcur_tam 38 39 USE tstool_tam 39 40 USE gridrandom … … 82 83 END IF 83 84 numror = 0 ! define numror = 0 -> no restart file to read 84 CALL day_init() ! model calendar (using both namelist and restart infos)85 !CALL day_init() ! model calendar (using both namelist and restart infos) 85 86 ! ! Initialization of ocean to zero 86 87 ! before fields ! now fields … … 90 91 tsb_tl (:,:,:,:) = tsn_tl (:,:,:,:) 91 92 sshb_tl ( :,:) = sshn_tl ( :,:) 92 rotb_tl (:,:,:) = rotn_tl (:,:,:) 93 hdivb_tl(:,:,:) = hdivn_tl(:,:,:) 93 CALL div_cur_tan( nit000 - 1 ) 94 94 END IF 95 95 ! … … 116 116 neuler=0 117 117 IF( ln_zps .AND. .NOT. lk_c1d ) & 118 & CALL zps_hde_adj( nit000, jpts, tsb, gtsu, gtsv,tsb_ad, rhd_ad, & ! Partial steps: before Horizontal DErivative118 & CALL zps_hde_adj( nit000, jpts, tsb, tsb_ad, rhd_ad, & ! Partial steps: before Horizontal DErivative 119 119 & gtsu_ad, gru_ad, & ! of t, s, rd at the bottom ocean level 120 120 & gtsv_ad, grv_ad ) … … 124 124 125 125 ! before fields ! now fields 126 CALL div_cur_adj( nit000 - 1 ) 126 127 un_ad (:,:,:) = un_ad(:,:,:) + ub_ad (:,:,:) 127 128 ub_ad (:,:,:) = 0.0_wp … … 132 133 sshn_ad (:,: ) = sshn_ad(:,: ) + sshb_ad (:,: ) 133 134 sshb_ad (:,: ) = 0.0_wp 134 rotn_ad (:,:,:) = rotn_ad(:,:,:) + rotb_ad (:,:,:)135 rotb_ad (:,:,:) = 0.0_wp136 hdivn_ad(:,:,:) = hdivn_ad(:,:,:) + hdivb_ad (:,:,:)137 hdivb_ad(:,:,:) = 0.0_wp138 135 ! 139 136 rhd_ad (:,:,:) = 0.0_wp
Note: See TracChangeset
for help on using the changeset viewer.