Changeset 628
- Timestamp:
- 2007-02-28T12:22:51+01:00 (18 years ago)
- Location:
- trunk/NEMO/NST_SRC
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif_user.F90
r469 r628 59 59 USE ice_oce 60 60 #endif 61 #if defined key_passivetrc 62 USE agrif_top_update 63 USE agrif_top_interp 64 USE sms 65 #endif 61 66 #if defined key_agrif 62 67 USE agrif_opa_update … … 72 77 ! 73 78 REAL(wp) tabtemp(jpi,jpj,jpk) 79 #if defined key_passivetrc 80 REAL(wp) tabtrtemp(jpi,jpj,jpk,jptra) 81 #endif 74 82 ! 75 83 LOGICAL check_namelist … … 115 123 Call Agrif_Set_type(gcb,(/2,2/),(/3,3/)) 116 124 125 #if defined key_passivetrc 126 Call Agrif_Set_type(trb,(/2,2,0,0/),(/3,3,0,0/)) 127 Call Agrif_Set_type(trn,(/2,2,0,0/),(/3,3,0,0/)) 128 Call Agrif_Set_type(tra,(/2,2,0,0/),(/3,3,0,0/)) 129 #endif 130 131 132 117 133 ! 118 134 ! Space directions for each variables … … 139 155 Call Agrif_Set_raf(gcb,(/'x','y'/)) 140 156 157 #if defined key_passivetrc 158 Call Agrif_Set_raf(trb,(/'x','y','N','N'/)) 159 Call Agrif_Set_raf(trn,(/'x','y','N','N'/)) 160 Call Agrif_Set_raf(tra,(/'x','y','N','N'/)) 161 #endif 162 141 163 ! 142 164 ! type of interpolation … … 157 179 Call Agrif_Set_bcinterp(e2v,interp1=AGRIF_ppm,interp2=Agrif_linear) 158 180 181 #if defined key_passivetrc 182 Call Agrif_Set_bcinterp(trn,interp=AGRIF_linear) 183 Call Agrif_Set_bcinterp(tra,interp=AGRIF_linear) 184 #endif 185 159 186 ! 160 187 ! Location of interpolation … … 175 202 Call Agrif_Set_bc(va,(/-2*Agrif_irhox(),0/)) 176 203 204 #if defined key_passivetrc 205 Call Agrif_Set_bc(trn,(/0,1/)) 206 Call Agrif_Set_bc(tra,(/-3*Agrif_irhox(),0/)) 207 #endif 208 177 209 ! Update type 178 210 … … 185 217 Call Agrif_Set_Updatetype(sshn, update = AGRIF_Update_Average) 186 218 Call Agrif_Set_Updatetype(gcb,update = AGRIF_Update_Average) 219 220 #if defined key_passivetrc 221 Call Agrif_Set_Updatetype(trn, update = AGRIF_Update_Average) 222 Call Agrif_Set_Updatetype(trb, update = AGRIF_Update_Average) 223 #endif 187 224 188 225 Call Agrif_Set_Updatetype(un,update1 = Agrif_Update_Copy, update2 = Agrif_Update_Average) … … 206 243 Call Agrif_Bc_variable(tabtemp,ua,calledweight=1.,procname=interpun) 207 244 Call Agrif_Bc_variable(tabtemp,va,calledweight=1.,procname=interpvn) 245 246 #if defined key_passivetrc 247 Call Agrif_Bc_variable(tabtrtemp,trn,calledweight=1.) 248 ! Call Agrif_Bc_variable(tabtrtemp,tra,calledweight=1.,procname=interptrn) 249 Call Agrif_Bc_variable(tabtrtemp,tra,calledweight=1.) 250 251 #endif 208 252 Agrif_UseSpecialValue = .FALSE. 253 209 254 ! 210 255
Note: See TracChangeset
for help on using the changeset viewer.