- Timestamp:
- 2011-11-15T21:55:40+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r2977 r3116 18 18 USE lib_mpp ! distributed memory computing library 19 19 USE trabbc ! bottom boundary condition 20 USE obc_par ! (for lk_obc) 20 21 USE bdy_par ! (for lk_bdy) 21 USE obc_par ! (for lk_obc)22 22 23 23 IMPLICIT NONE … … 205 205 WRITE(numout,*) "dia_hsb: heat salt volume budgets activated" 206 206 WRITE(numout,*) "~~~~~~~ output written in the 'heat_salt_volume_budgets.txt' ASCII file" 207 IF( lk_obc . OR. lk_bdy) THEN207 IF( lk_obc .or. lk_bdy ) THEN 208 208 CALL ctl_warn( 'dia_hsb does not take open boundary fluxes into account' ) 209 209 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.