Changeset 2876


Ignore:
Timestamp:
2011-09-29T17:36:24+02:00 (9 years ago)
Author:
cbricaud
Message:

modify comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90

    r2844 r2876  
    4040   ! member arrays. 
    4141   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   zlon , zlat, zdep   ! 2D workspace 
    42    REAL(wp), ALLOCATABLE, DIMENSION(:) ::   ztem, zsal, zrho   ! 2D workspace 
     42   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   ztem , zsal, zrho   ! 2D workspace 
    4343 
    4444   !! * Substitutions 
     
    194194         IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN 
    195195 
    196             !II-2-a Open ascii file 
     196            !II-1-a Open ascii file 
    197197            !---------------------- 
    198198            IF( kt == nn_it000 ) THEN 
     
    202202            ENDIF 
    203203 
    204             !III-2-b Write in ascii file 
     204            !II-1-b Write in ascii file 
    205205            !----------------------------- 
    206206            WRITE(numfl,*) zlon,zlat,zdep,nisobfl,ngrpfl,ztem,zsal, FLOAT(ndastp) 
    207207 
    208208 
    209             !III-2-c Close netcdf file 
     209            !II-1-c Close netcdf file 
    210210            !------------------------- 
    211211            IF( kt == nitend )   CLOSE( numfl ) 
     
    214214 
    215215      !----------------------------------------------------- 
    216       ! III- Write in netcdf file 
     216      ! II-2 Write in netcdf file 
    217217      !----------------------------------------------------- 
    218218 
    219219      ELSE 
     220 
     221      !II-2-a Write with IOM 
     222      !---------------------- 
    220223 
    221224#if defined key_iomput 
     
    229232#else 
    230233 
    231       !III-2 Write with IOIPSL 
    232       !---------------------- 
     234      !II-2-b Write with IOIPSL 
     235      !------------------------ 
    233236 
    234237         IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN 
    235238 
    236239 
    237             !III-2-a Open netcdf file 
    238             !----------------------- 
     240            !II-2-b-1 Open netcdf file 
     241            !------------------------- 
    239242            IF( kt==nn_it000 )THEN   ! Create and open 
    240243 
     
    262265            ENDIF 
    263266 
    264             !III-2-b Write in  netcdf file 
    265             !----------------------------- 
     267            !II-2-b-2 Write in  netcdf file 
     268            !------------------------------- 
    266269            irec =  INT( (kt-nn_it000+1)/nn_writefl ) +1 
    267270            ztime = ( kt-nn_it000 + 1 ) * rdt 
     
    283286            ENDDO 
    284287 
    285             !III-2-c Close netcdf file 
    286             !------------------------- 
     288            !II-2-b-3 Close netcdf file 
     289            !--------------------------- 
    287290            CALL flioclo( numfl ) 
    288291 
Note: See TracChangeset for help on using the changeset viewer.