- Timestamp:
- 2021-11-28T18:59:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- 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/ticket2632_r14588_theta_sbcblk/src/OCE/ISF/isfdiags.F90
r13295 r15548 40 40 !! 41 41 !! ** Purpose : manage the 2d and 3d flux outputs of the ice shelf module 42 !! f wf, latent heat flux, heat content flux, oce->ice heat flux42 !! from isf to oce fwf, latent heat, heat content fluxes 43 43 !! 44 44 !!---------------------------------------------------------------------- … … 62 62 ! 63 63 ! output 2d melt rate, latent heat and heat content flux from the injected water 64 CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) ) ! mass flux ( > 0 out)65 CALL iom_put( TRIM(cvarqoce), pqoce(:,:) ) ! oce to ice flux ( > 0 out)66 CALL iom_put( TRIM(cvarqlat), pqlat(:,:) ) ! latent heat flux ( > 0 out)67 CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) ) ! heat content flux ( > 0 out)64 CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) ) ! mass flux ( > 0 from isf to oce) 65 CALL iom_put( TRIM(cvarqoce), pqoce(:,:) ) ! oce to ice flux ( > 0 from isf to oce) 66 CALL iom_put( TRIM(cvarqlat), pqlat(:,:) ) ! latent heat flux ( > 0 from isf to oce) 67 CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) ) ! heat content flux ( > 0 from isf to oce) 68 68 ! 69 69 ! output 3d Diagnostics … … 101 101 zvar3d(:,:,:) = 0._wp 102 102 ! 103 DO_2D( 1, 1, 1, 1)103 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 104 104 ikt = ktop(ji,jj) 105 105 ikb = kbot(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.