- Timestamp:
- 2017-09-07T20:08:11+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv_prather.F90
r8504 r8512 75 75 !!---------------------------------------------------------------------- 76 76 ! 77 IF( kt == nit000 .AND. lwp ) THEN 78 WRITE(numout,*) 79 WRITE(numout,*) 'ice_adv_prather: Prather advection scheme' 80 WRITE(numout,*) '~~~~~~~~~~~~~~~' 81 ENDIF 77 IF( kt == nit000 .AND. lwp ) WRITE(numout,*) '-- ice_adv_prather: Prather advection scheme' 82 78 ! 83 79 ALLOCATE( zarea(jpi,jpj) , z0opw(jpi,jpj, 1 ) , &
Note: See TracChangeset
for help on using the changeset viewer.