Changeset 2844


Ignore:
Timestamp:
2011-09-20T15:40:17+02:00 (9 years ago)
Author:
cbricaud
Message:

minor corrections

Location:
branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO
Files:
3 edited

Legend:

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

    r2843 r2844  
    319319 
    320320         jfl1=0 
     321         ierr=0 
    321322         CALL ctl_opn( inum, clname2, 'OLD', 'FORMATTED', 'SEQUENTIAL',  1, numout, .TRUE., 1 ) 
    322          DO WHILE (ierr .GE. 0) 
     323         DO WHILE (ierr .EQ. 0) 
    323324            jfl1=jfl1+1 
    324             READ (inum,*, iostat=ierr) 
     325            READ(inum,*, iostat=ierr) 
    325326         END DO 
    326327         CLOSE(inum) 
    327328         IF( (jfl1-1) .NE. ifl )THEN  
    328             WRITE(cltmp,'(A20,A20,A3,i4.4,A10,i4.4)')"the number of floats in",TRIM(clname2), & 
     329            WRITE(cltmp,'(A25,A20,A3,i4.4,A10,i4.4)')"the number of floats in ",TRIM(clname2), & 
    329330                                                     " = ",jfl1," is not equal to jfl= ",ifl 
    330331            CALL ctl_stop('STOP',TRIM(cltmp) ) 
     
    437438      IF( ABS(dlx) > 1.0 ) dlx = 1.0 
    438439      ! 
    439       dld = ATAN(DSQRT( ( 1-dlx )/( 1+dlx ) )) * 222.24 / dls 
     440      dld = ATAN(DSQRT( 1.d0 * ( 1.-dlx )/( 1.+dlx ) )) * 222.24 / dls 
    440441      dstnce = dld * 1000. 
    441442      ! 
  • branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90

    r2843 r2844  
    1717   !! * Modules used 
    1818   USE flo_oce         ! ocean drifting floats 
    19    !USE oce             ! ocean dynamics and tracers 
    2019   USE dom_oce         ! ocean space and time domain 
    2120   USE lib_mpp         ! distribued memory computing library 
    2221   USE in_out_manager  ! I/O manager 
    23    !USE phycst          ! physic constants 
    24    !USE dianam          ! build name of file (routine) 
    25    !USE ioipsl 
    2622 
    2723   IMPLICIT NONE 
     
    2925 
    3026   PUBLIC flo_rst      ! routine called by floats.F90 
    31  
    32    !INTEGER :: jfl      ! number of floats 
    33    !INTEGER :: numfl   ! logical unit for floats netcdf output 
    3427 
    3528   !! * Substitutions 
     
    4538   SUBROUTINE flo_rst( kt ) 
    4639      !!--------------------------------------------------------------------- 
    47       !!                  ***  ROUTINE flo_wri *** 
     40      !!                  ***  ROUTINE flo_rst *** 
    4841      !!              
    4942      !! ** Purpose :   
     
    8578         END DO 
    8679 
    87          CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    88          REWIND inum 
     80         inum=0 
     81         IF( lwp )THEN 
     82            CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     83            REWIND inum 
     84         ENDIF 
    8985         ! 
    9086         DO jpn = 1, jpnij 
  • branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90

    r2841 r2844  
    5252CONTAINS 
    5353 
    54    INTEGER FUNCTION flo_wri_alloc 
     54   INTEGER FUNCTION flo_wri_alloc() 
    5555      !!------------------------------------------------------------------- 
    5656      !!                ***  FUNCTION flo_wri_alloc  *** 
     
    220220 
    221221#if defined key_iomput 
    222          IF(lwp)WRITE(numout,*)"zlon ",zlon ; call FLUSH(numout) 
    223222         CALL iom_put( "traj_lon"     , zlon ) 
    224223         CALL iom_put( "traj_lat"     , zlat ) 
Note: See TracChangeset for help on using the changeset viewer.