Changeset 6981 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM
- Timestamp:
- 2016-10-04T14:34:18+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r6140 r6981 105 105 IF( ln_linssh ) THEN ! Fix in time : set to the reference one for all 106 106 ! before ! now ! after ! 107 ;gdept_b = gdept_0 ; gdept_n = gdept_0 ! --- ! depth of grid-points108 ;gdepw_b = gdepw_0 ; gdepw_n = gdepw_0 ! --- !109 ; ;gde3w_n = gde3w_0 ! --- !107 gdept_b = gdept_0 ; gdept_n = gdept_0 ! --- ! depth of grid-points 108 gdepw_b = gdepw_0 ; gdepw_n = gdepw_0 ! --- ! 109 gde3w_n = gde3w_0 ! --- ! 110 110 ! 111 ;e3t_b = e3t_0 ; e3t_n = e3t_0 ; e3t_a = e3t_0 ! scale factors112 ;e3u_b = e3u_0 ; e3u_n = e3u_0 ; e3u_a = e3u_0 !113 ;e3v_b = e3v_0 ; e3v_n = e3v_0 ; e3v_a = e3v_0 !114 ; ;e3f_n = e3f_0 ! --- !115 ;e3w_b = e3w_0 ; e3w_n = e3w_0 ! --- !116 ;e3uw_b = e3uw_0 ; e3uw_n = e3uw_0 ! --- !117 ;e3vw_b = e3vw_0 ; e3vw_n = e3vw_0 ! --- !111 e3t_b = e3t_0 ; e3t_n = e3t_0 ; e3t_a = e3t_0 ! scale factors 112 e3u_b = e3u_0 ; e3u_n = e3u_0 ; e3u_a = e3u_0 ! 113 e3v_b = e3v_0 ; e3v_n = e3v_0 ; e3v_a = e3v_0 ! 114 e3f_n = e3f_0 ! --- ! 115 e3w_b = e3w_0 ; e3w_n = e3w_0 ! --- ! 116 e3uw_b = e3uw_0 ; e3uw_n = e3uw_0 ! --- ! 117 e3vw_b = e3vw_0 ; e3vw_n = e3vw_0 ! --- ! 118 118 ! 119 119 CALL wrk_alloc( jpi,jpj, z1_hu_0, z1_hv_0 ) … … 123 123 ! 124 124 ! before ! now ! after ! 125 ; ;ht_n = ht_0 ! ! water column thickness126 ;hu_b = hu_0 ; hu_n = hu_0 ; hu_a = hu_0 !127 ;hv_b = hv_0 ; hv_n = hv_0 ; hv_a = hv_0 !128 ;r1_hu_b = z1_hu_0 ; r1_hu_n = z1_hu_0 ; r1_hu_a = z1_hu_0 ! inverse of water column thickness129 ;r1_hv_b = z1_hv_0 ; r1_hv_n = z1_hv_0 ; r1_hv_a = z1_hv_0 !125 ht_n = ht_0 ! ! water column thickness 126 hu_b = hu_0 ; hu_n = hu_0 ; hu_a = hu_0 ! 127 hv_b = hv_0 ; hv_n = hv_0 ; hv_a = hv_0 ! 128 r1_hu_b = z1_hu_0 ; r1_hu_n = z1_hu_0 ; r1_hu_a = z1_hu_0 ! inverse of water column thickness 129 r1_hv_b = z1_hv_0 ; r1_hv_n = z1_hv_0 ; r1_hv_a = z1_hv_0 ! 130 130 ! 131 131 CALL wrk_dealloc( jpi,jpj, z1_hu_0, z1_hv_0 )
Note: See TracChangeset
for help on using the changeset viewer.