Changeset 1200 for trunk/NEMO/NST_SRC
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- Location:
- trunk/NEMO/NST_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/NST_SRC/agrif_opa_update.F90
r1156 r1200 95 95 USE wzvmod 96 96 USE cla_div 97 USE ocfzpt98 97 99 98 INTEGER, INTENT(in) :: kt … … 101 100 ta = hdivb 102 101 sa = rotb 103 CALL oc_fz_pt104 102 Call div_cur(kt) 105 103 -
trunk/NEMO/NST_SRC/agrif_user.F90
r1156 r1200 80 80 81 81 REAL(wp) :: tabtemp(jpi,jpj,jpk) 82 #if defined key_ passivetrc82 #if defined key_top 83 83 REAL(wp) :: tabtrtemp(jpi,jpj,jpk,jptra) 84 84 #endif … … 123 123 Call Agrif_Set_type(gcb,(/2,2/),(/3,3/)) 124 124 125 #if defined key_ passivetrc125 #if defined key_top 126 126 Call Agrif_Set_type(trb,(/2,2,0,0/),(/3,3,0,0/)) 127 127 Call Agrif_Set_type(trn,(/2,2,0,0/),(/3,3,0,0/)) … … 152 152 Call Agrif_Set_raf(gcb,(/'x','y'/)) 153 153 154 #if defined key_ passivetrc154 #if defined key_top 155 155 Call Agrif_Set_raf(trb,(/'x','y','N','N'/)) 156 156 Call Agrif_Set_raf(trn,(/'x','y','N','N'/)) … … 175 175 Call Agrif_Set_bcinterp(e2v,interp1=AGRIF_ppm,interp2=Agrif_linear) 176 176 177 #if defined key_ passivetrc177 #if defined key_top 178 178 Call Agrif_Set_bcinterp(trn,interp=AGRIF_linear) 179 179 Call Agrif_Set_bcinterp(tra,interp=AGRIF_linear) … … 197 197 Call Agrif_Set_bc(va,(/-2*Agrif_irhox(),0/)) 198 198 199 #if defined key_ passivetrc199 #if defined key_top 200 200 Call Agrif_Set_bc(trn,(/0,1/)) 201 201 Call Agrif_Set_bc(tra,(/-3*Agrif_irhox(),0/)) … … 213 213 Call Agrif_Set_Updatetype(gcb,update = AGRIF_Update_Average) 214 214 215 #if defined key_ passivetrc215 #if defined key_top 216 216 Call Agrif_Set_Updatetype(trn, update = AGRIF_Update_Average) 217 217 Call Agrif_Set_Updatetype(trb, update = AGRIF_Update_Average) … … 239 239 Call Agrif_Bc_variable(tabtemp,va,calledweight=1.,procname=interpvn) 240 240 241 #if defined key_ passivetrc241 #if defined key_top 242 242 Call Agrif_Bc_variable(tabtrtemp,trn,calledweight=1.) 243 243 Call Agrif_Bc_variable(tabtrtemp,tra,calledweight=1.)
Note: See TracChangeset
for help on using the changeset viewer.