- Timestamp:
- 2013-11-04T13:54:28+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4147 r4148 153 153 sfx(:,:) = 0.0_wp ! the salt flux due to freezing/melting will be computed (i.e. will be non-zero) 154 154 ! only if sea-ice is present 155 156 fmmflx(:,:) = 0.0_wp ! freezing-melting array initialisation 155 157 156 158 ! ! restartability … … 371 373 ! (includes virtual salt flux beneath ice 372 374 ! in linear free surface case) 375 CALL iom_put( "fmmflx", fmmflx ) ! Freezing-melting water flux 373 376 CALL iom_put( "qt" , qns + qsr ) ! total heat flux 374 377 CALL iom_put( "qns" , qns ) ! solar heat flux
Note: See TracChangeset
for help on using the changeset viewer.