- Timestamp:
- 2019-12-05T18:41:39+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfdiags.F90
r12068 r12077 1 1 MODULE isfdiags 2 2 !!====================================================================== 3 !! *** MODULE sbcisf *** 4 !! Surface module : update surface ocean boundary condition under ice 5 !! shelf 3 !! *** MODULE isfdiags *** 4 !! ice shelf diagnostics module : manage the 2d and 3d flux outputs from the ice shelf module 6 5 !!====================================================================== 7 6 !! History : 3.2 ! 2011-02 (C.Harris ) Original code isf cav … … 16 15 USE in_out_manager ! I/O manager 17 16 USE dom_oce 18 USE isf ! ice shelf variable 19 USE isfutils 17 USE isf_oce ! ice shelf variable 20 18 USE iom ! 21 19 … … 38 36 !! *** ROUTINE isf_diags_flx *** 39 37 !! 40 !! ** Purpose : 38 !! ** Purpose : manage the 2d and 3d flux outputs of the ice shelf module 39 !! fwf, latent heat flux, heat content flux, oce->ice heat flux 41 40 !! 42 41 !!---------------------------------------------------------------------- … … 59 58 cvarqhc = 'qhcisf_'//cdisf ; cvarqhc3d = 'qhcisf3d_'//cdisf 60 59 ! 61 ! output 2d melt rate, latent heat and heat content flux 62 CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) ) ! isf mass flux (opposite sign)63 CALL iom_put( TRIM(cvarqoce), pqoce(:,:) ) ! isf oce to ice flux (cpo*gt*dt)64 CALL iom_put( TRIM(cvarqlat), pqlat(:,:) ) ! isf oce to ice flux (cpo*gt*dt)65 CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) ) ! isf heat content flux (cpo*fwf*Tfrz)60 ! output 2d melt rate, latent heat and heat content flux from the injected water 61 CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) ) ! mass flux ( >0 out ) 62 CALL iom_put( TRIM(cvarqoce), pqoce(:,:) ) ! oce to ice flux ( >0 out ) 63 CALL iom_put( TRIM(cvarqlat), pqlat(:,:) ) ! latent heat flux ( >0 out ) 64 CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) ) ! heat content flux ( >0 out ) 66 65 ! 67 66 ! output 3d Diagnostics … … 77 76 !! *** ROUTINE isf_diags_2dto3d *** 78 77 !! 79 !! ** Purpose : 78 !! ** Purpose : compute the 3d flux outputs as they are injected into NEMO 79 !! (ie uniformaly spread into the top boundary layer or parametrisation layer) 80 80 !! 81 81 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.