- Timestamp:
- 2011-04-08T13:14:00+02:00 (13 years ago)
- Location:
- trunk/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r2715 r2730 94 94 CALL lim_sbc_init_2 ! ice surface boundary condition 95 95 ! 96 IF( lk_lim2_vp ) THEN ; WRITE(numout,*) ' VP rheology - B-grid case'97 ELSE ; WRITE(numout,*) ' EVP rheology - C-grid case'96 IF( lk_lim2_vp ) THEN ; IF(lwp) WRITE(numout,*) ' VP rheology - B-grid case' 97 ELSE ; IF(lwp) WRITE(numout,*) ' EVP rheology - C-grid case' 98 98 ENDIF 99 99 ! -
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90
r2715 r2730 327 327 #endif 328 328 329 IF( kt == nitend .AND. jnt == nrdttrc ) THEN329 IF( kt == nitend .AND. jnt == nrdttrc .AND. lwp ) THEN 330 330 WRITE(numout,*) 'Total PP (Gtc) :' 331 331 WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12
Note: See TracChangeset
for help on using the changeset viewer.