Changeset 5363 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2015-06-05T12:15:22+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5146 r5363 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.