Changeset 8670 for branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2017-11-02T16:02:02+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8484 r8670 271 271 ENDIF 272 272 273 IF(lwp) THEN ! control print274 WRITE(numout,*)275 WRITE(numout,*)'============================================================='276 WRITE(numout,*)'In cice_sbc_init, before call to cice2nemo for z0atm/fmdice'277 WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm)278 WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm)279 WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm)280 WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm)281 WRITE(numout,*)'============================================================='282 WRITE(numout,*)283 ENDIF284 285 273 CALL cice2nemo(z0atm,fmdice,'T', 1. ) 286 287 IF(lwp) THEN ! control print288 WRITE(numout,*)289 WRITE(numout,*)'============================================================='290 WRITE(numout,*)'In cice_sbc_init, after call to cice2nemo for z0atm/fmdice'291 WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm)292 WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm)293 WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm)294 WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm)295 WRITE(numout,*)'MAXVAL(fmdice): ', MAXVAL(fmdice)296 WRITE(numout,*)'MAXLOC(fmdice): ', MAXLOC(fmdice)297 WRITE(numout,*)'MINVAL(fmdice): ', MINVAL(fmdice)298 WRITE(numout,*)'MINLOC(fmdice): ', MINLOC(fmdice)299 WRITE(numout,*)'============================================================='300 WRITE(numout,*)301 ENDIF302 274 303 275 IF( .NOT. ln_rstart ) THEN
Note: See TracChangeset
for help on using the changeset viewer.