Changeset 5166 for branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO
- Timestamp:
- 2015-03-24T17:39:45+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5123 r5166 1158 1158 IF( srcv(jpr_cal)%laction ) THEN 1159 1159 emp_tot(:,:) = emp_tot(:,:) - frcv(jpr_cal)%z3(:,:,1) 1160 CALL iom_put( 'calving ', frcv(jpr_cal)%z3(:,:,1) )1160 CALL iom_put( 'calving_cea', frcv(jpr_cal)%z3(:,:,1) ) 1161 1161 ENDIF 1162 1162 !
Note: See TracChangeset
for help on using the changeset viewer.