Changeset 2108 for branches/DEV_r1837_MLF/NEMO/OPA_SRC
- Timestamp:
- 2010-09-21T21:52:56+02:00 (14 years ago)
- Location:
- branches/DEV_r1837_MLF/NEMO/OPA_SRC
- Files:
-
- 1 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1837_MLF/NEMO/OPA_SRC/IOM/in_out_manager.F90
r1770 r2108 78 78 INTEGER :: nn_bench = 0 !: benchmark parameter (0/1) 79 79 INTEGER :: nn_bit_cmp = 0 !: bit reproducibility (0/1) 80 LOGICAL :: ln_hsb = .FALSE. !: check the heat and salt budgets 80 81 81 82 ! !: OLD namelist names -
branches/DEV_r1837_MLF/NEMO/OPA_SRC/SBC/sbcmod.F90
r2107 r2108 267 267 vtau_b(:,:) = vtau(:,:) 268 268 qns_b (:,:) = qns (:,:) 269 qsr_b (:,:) = qsr (:,:)269 ! qsr_b (:,:) = qsr (:,:) 270 270 emp_b (:,:) = emp (:,:) 271 271 emps_b(:,:) = emps(:,:) -
branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/trasbc.F90
r2091 r2108 127 127 qns(:,:) = qns(:,:) + qsr(:,:) ! total heat flux in qns 128 128 qsr(:,:) = 0.e0 ! qsr set to zero 129 IF( kt == nit000 ) THEN ! idem on before field at nit000130 qsr_b(:,:) = 0.e0131 ENDIF129 ! IF( kt == nit000 ) THEN ! idem on before field at nit000 130 ! qsr_b(:,:) = 0.e0 131 ! ENDIF 132 132 ENDIF 133 133 ! Set before sbc tracer content fields … … 186 186 ! Write in the ocean restart file 187 187 ! ******************************* 188 IF(lwp) WRITE(numout,*) 189 IF(lwp) WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ', & 190 & 'at it= ', kt,' date= ', ndastp 191 IF(lwp) WRITE(numout,*) '~~~~' 192 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_hc_n ) 193 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_sc_n ) 188 IF( lrst_oce ) THEN 189 IF(lwp) WRITE(numout,*) 190 IF(lwp) WRITE(numout,*) 'sbc : ocean surface tracer content forcing fields written in ocean restart file ', & 191 & 'at it= ', kt,' date= ', ndastp 192 IF(lwp) WRITE(numout,*) '~~~~' 193 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_hc_n ) 194 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_sc_n ) 195 ENDIF 194 196 195 197 IF( l_trdtra ) THEN ! save the sbc trends for diagnostic -
branches/DEV_r1837_MLF/NEMO/OPA_SRC/opa.F90
r1793 r2108 180 180 !! 181 181 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 182 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench, nn_bit_cmp 182 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench, nn_bit_cmp, ln_hsb 183 183 !!---------------------------------------------------------------------- 184 184 ! … … 313 313 WRITE(numout,*) ' benchmark parameter (0/1) nn_bench = ', nn_bench 314 314 WRITE(numout,*) ' bit comparison mode (0/1) nn_bit_cmp = ', nn_bit_cmp 315 WRITE(numout,*) ' check the heat and salt budgets ln_hsb = ', ln_hsb 315 316 ENDIF 316 317 -
branches/DEV_r1837_MLF/NEMO/OPA_SRC/step.F90
r2068 r2108 117 117 USE prtctl ! Print control (prt_ctl routine) 118 118 ! - ML - 119 USE dia trb ! global tracer conservation (dia_trb routine)119 USE diahsb ! global tracer conservation (dia_hsb routine) 120 120 121 121 #if defined key_agrif … … 320 320 321 321 CALL ssh_nxt( kstp ) ! sea surface height at next time step 322 CALL dia_trb( kstp ) ! - ML - global conservation diagnostics322 IF( ln_hsb ) CALL dia_hsb( kstp ) ! - ML - global conservation diagnostics 323 323 324 324 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.