Ignore:
Timestamp:
2017-09-07T20:08:11+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - reaching the end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90

    r8498 r8512  
    116116      IF( kt == nit000 .AND. lwp ) THEN 
    117117         WRITE(numout,*) 
    118          WRITE(numout,*)'ice_update_flx' 
     118         WRITE(numout,*)'ice_update_flx: update fluxes (mass, salt and heat) at the ice-ocean interface' 
    119119         WRITE(numout,*)'~~~~~~~~~~~~~~' 
    120120      ENDIF 
     
    255255      IF( kt == nit000 .AND. lwp ) THEN 
    256256         WRITE(numout,*) 
    257          WRITE(numout,*)'ice_update_tau' 
     257         WRITE(numout,*)'ice_update_tau: update stress at the ice-ocean interface' 
    258258         WRITE(numout,*)'~~~~~~~~~~~~~~' 
    259259      ENDIF 
     
    314314      ! 
    315315      IF(lwp) WRITE(numout,*) 
    316       IF(lwp) WRITE(numout,*) 'ice_update_init :   sea-ice   ????' 
    317       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~   ' 
     316      IF(lwp) WRITE(numout,*) 'ice_update_init: ???? ' 
     317      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~' 
    318318 
    319319      !                                      ! allocate ice_update array 
Note: See TracChangeset for help on using the changeset viewer.