- Timestamp:
- 2021-12-03T20:32:50+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcais.F90
r14118 r15574 70 70 ENDIF 71 71 ! 72 IF (.NOT. ln_rnf_icb) THEN72 IF( .NOT. ln_rnf_icb ) THEN 73 73 CALL ctl_stop( 'trc_ais_ini: no iceberg freswater flux in runoff file' ) ; RETURN 74 74 ENDIF … … 170 170 IF( ln_trc_ais(jn) ) THEN 171 171 jl = n_trc_indais(jn) 172 DO_2D( 1, 1, 1, 1)172 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 173 173 zfact = 1. / e3t(ji,jj,1,Kmm) 174 174 ptr(ji,jj,jk,jn,Krhs) = ptr(ji,jj,1,jn,Krhs) + fwficb(ji,jj) * r1_rho0 * ptr(ji,jj,1,jn,Kmm) * zfact … … 182 182 IF( ln_trc_ais(jn) ) THEN 183 183 jl = n_trc_indais(jn) 184 DO_2D( 1, 1, 1, 1)184 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 185 185 IF( ln_isfpar_mlt ) THEN 186 zcalv = -fwfisf_par(ji,jj) * r1_rho0 / rhisf_tbl_par(ji,jj)186 zcalv = fwfisf_par(ji,jj) * r1_rho0 / rhisf_tbl_par(ji,jj) 187 187 ikt = misfkt_par(ji,jj) 188 188 ikb = misfkb_par(ji,jj) … … 190 190 END IF 191 191 IF( ln_isfcav_mlt ) THEN 192 zcalv = -fwfisf_cav(ji,jj) * r1_rho0 / rhisf_tbl_cav(ji,jj)192 zcalv = fwfisf_cav(ji,jj) * r1_rho0 / rhisf_tbl_cav(ji,jj) 193 193 ikt = misfkt_cav(ji,jj) 194 194 ikb = misfkb_cav(ji,jj) … … 214 214 IF( ln_trc_ais(jn) ) THEN 215 215 jl = n_trc_indais(jn) 216 DO_2D( 1, 1, 1, 1)216 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 217 217 DO jk = 1, icblev 218 218 zcalv = fwficb(ji,jj) * r1_rho0 … … 229 229 IF( ln_trc_ais(jn) ) THEN 230 230 jl = n_trc_indais(jn) 231 DO_2D( 1, 1, 1, 1)231 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 232 232 IF( ln_isfpar_mlt ) THEN 233 233 zcalv = - fwfisf_par(ji,jj) * r1_rho0 / rhisf_tbl_par(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.