Changeset 14907 for NEMO/branches/2021
- Timestamp:
- 2021-05-26T17:38:37+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfcav.F90
r14433 r14907 148 148 ! 149 149 IF ( ln_isfdebug ) THEN 150 IF(lwp) WRITE(numout,*) '' 150 151 CALL debug('isf_cav: ptsc T',ptsc(:,:,1)) 151 152 CALL debug('isf_cav: ptsc S',ptsc(:,:,2)) 152 153 CALL debug('isf_cav: pqfwf fwf',pqfwf(:,:)) 154 IF(lwp) WRITE(numout,*) '' 153 155 END IF 154 156 ! -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfcavmlt.F90
r13472 r14907 79 79 ! 80 80 IF (ln_isfdebug) THEN 81 IF(lwp) WRITE(numout,*) '' 81 82 CALL debug( 'isfcav_mlt qhc :', pqhc (:,:) ) 82 83 CALL debug( 'isfcav_mlt qoce :', pqoce(:,:) ) 83 84 CALL debug( 'isfcav_mlt qfwf :', pqfwf(:,:) ) 85 IF(lwp) WRITE(numout,*) '' 84 86 END IF 85 87 ! -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90
r14433 r14907 94 94 ! 95 95 IF ( ln_isfdebug ) THEN 96 IF(lwp) WRITE(numout,*) 96 97 CALL debug('isf_par: ptsc T',ptsc(:,:,1)) 97 98 CALL debug('isf_par: ptsc S',ptsc(:,:,2)) 98 99 CALL debug('isf_par: pqfwf fwf',pqfwf(:,:)) 100 IF(lwp) WRITE(numout,*) 99 101 END IF 100 102 ! -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfparmlt.F90
r12489 r14907 10 10 USE isf_oce ! ice shelf 11 11 USE isftbl , ONLY: isf_tbl ! ice shelf depth average 12 USE isfutils,ONLY: debug ! debug subroutine 12 13 13 14 USE dom_oce ! ocean space and time domain … … 39 40 ! ------------------------------------------------------------------------------------------------------- 40 41 41 SUBROUTINE isfpar_mlt( kt, Kmm, pqhc, pqoce, pqfwf )42 SUBROUTINE isfpar_mlt( kt, Kmm, pqhc, pqoce, pqfwf ) 42 43 !!--------------------------------------------------------------------- 43 44 !! *** ROUTINE isfpar_mlt *** … … 69 70 END SELECT 70 71 ! 72 IF (ln_isfdebug) THEN 73 IF(lwp) WRITE(numout,*) '' 74 CALL debug( 'isfpar_mlt qhc :', pqhc (:,:) ) 75 CALL debug( 'isfpar_mlt qoce :', pqoce(:,:) ) 76 CALL debug( 'isfpar_mlt qfwf :', pqfwf(:,:) ) 77 IF(lwp) WRITE(numout,*) '' 78 END IF 79 ! 71 80 END SUBROUTINE isfpar_mlt 72 81
Note: See TracChangeset
for help on using the changeset viewer.