Changeset 13110
- Timestamp:
- 2020-06-16T14:16:56+02:00 (5 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/cfgs/SHARED/field_def_nemo-oce.xml
r13108 r13110 373 373 <field id="Ch_oce" long_name="Sensible heat coefficient over open ocean" standard_name="sensible_heat_coefficient_water" unit="" /> 374 374 375 <field id="Cd_ice" long_name="Drag coefficient over ice" standard_name="drag_coefficient_ice" unit="" /> 376 <field id="Ce_ice" long_name="Evaporaion coefficient over ice" standard_name="evap_coefficient_ice" unit="" /> 377 <field id="Ch_ice" long_name="Sensible heat coefficient over ice" standard_name="sensible_heat_coefficient_ice" unit="" /> 378 375 379 <!-- available key_oasis3 --> 376 380 <field id="snow_ao_cea" long_name="Snow over ice-free ocean (cell average)" standard_name="snowfall_flux" unit="kg/m2/s" /> -
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.