Changeset 13365 for NEMO/branches/2020/tickets_icb_1900/src/OCE
- Timestamp:
- 2020-07-30T18:57:15+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbini.F90
r13357 r13365 73 73 ! 74 74 IF( .NOT. ln_icebergs ) RETURN 75 75 ! 76 ! check nn_fsbc 77 IF ( ln_icebergs .AND. ln_M2016 .AND. nn_fsbc /= 1) THEN 78 IF (lwp) WRITE(numout,*) 'The use of ln_M2016 within the iceberg module is only compatible with nn_fsbc == 1' 79 IF (lwp) WRITE(numout,*) 'because it needs the 3d t,s,u,v model data' 80 CALL ctl_stop('Compatibility error in the iceberg module') 81 END IF 82 ! 76 83 ! ! allocate gridded fields 77 84 IF( icb_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'icb_alloc : unable to allocate arrays' ) -
NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbutl.F90
r13359 r13365 434 434 ii = mi1(ii) 435 435 ij = mj1(ij) 436 437 IF (lwp) THEN438 WRITE(numout,*) 'bilin_e ', pi, pj439 WRITE(numout,*) ii, ij, zi, zj440 WRITE(numout,*) ''441 END IF442 443 436 ! 444 437 IF( 0.0_wp <= zi .AND. zi < 0.5_wp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.