Changeset 13110 for NEMO/trunk/src/OCE
- Timestamp:
- 2020-06-16T14:16:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r13108 r13110 628 628 END SELECT 629 629 630 IF( iom_use("Cd_oce") )CALL iom_put("Cd_oce", zcd_oce)631 IF( iom_use("Ce_oce") )CALL iom_put("Ce_oce", zce_oce)632 IF( iom_use("Ch_oce") )CALL iom_put("Ch_oce", zch_oce)630 CALL iom_put("Cd_oce", zcd_oce) 631 CALL iom_put("Ce_oce", zce_oce) 632 CALL iom_put("Ch_oce", zch_oce) 633 633 634 634 IF( ln_skin_cs .OR. ln_skin_wl ) THEN … … 883 883 ENDIF 884 884 885 IF( iom_use("Cd_ice") )CALL iom_put("Cd_ice", Cd_ice)886 IF( iom_use("Ce_ice") )CALL iom_put("Ce_ice", Ce_ice)887 IF( iom_use("Ch_ice") )CALL iom_put("Ch_ice", Ch_ice)885 CALL iom_put("Cd_ice", Cd_ice) 886 CALL iom_put("Ce_ice", Ce_ice) 887 CALL iom_put("Ch_ice", Ch_ice) 888 888 889 889 ! local scalars ( place there for vector optimisation purposes)
Note: See TracChangeset
for help on using the changeset viewer.