Ignore:
Timestamp:
2012-11-14T18:03:01+01:00 (8 years ago)
Author:
cetlod
Message:

branch:2012/dev_r3438_LOCEAN15_PISLOB add the Tropical Cyclones module

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r3294 r3556  
    627627      INTEGER  , INTENT(in), OPTIONAL, DIMENSION(:) :: map ! global-to-local mapping indices 
    628628      !! 
     629      INTEGER                  ::   ipi    ! number of i-point sdjf%fdta 
    629630      INTEGER                  ::   ipk    ! number of vertical levels of sdjf%fdta ( 2D: ipk=1 ; 3D: ipk=jpk ) 
    630631      INTEGER                  ::   iw     ! index into wgts array 
    631632      !!--------------------------------------------------------------------- 
    632633             
     634      ipi = SIZE( sdjf%fnow, 1 ) 
    633635      ipk = SIZE( sdjf%fnow, 3 ) 
    634636 
     
    645647         SELECT CASE( ipk ) 
    646648         CASE(1)    
    647             IF( sdjf%ln_tint ) THEN   ;   CALL iom_get( sdjf%num, jpdom_data, sdjf%clvar, sdjf%fdta(:,:,1,2), sdjf%nrec_a(1) ) 
    648             ELSE                      ;   CALL iom_get( sdjf%num, jpdom_data, sdjf%clvar, sdjf%fnow(:,:,1  ), sdjf%nrec_a(1) ) 
     649            IF( ipi == jpi ) THEN 
     650               IF( sdjf%ln_tint ) THEN   ;   CALL iom_get( sdjf%num, jpdom_data, sdjf%clvar, sdjf%fdta(:,:,1,2), sdjf%nrec_a(1) ) 
     651               ELSE                      ;   CALL iom_get( sdjf%num, jpdom_data, sdjf%clvar, sdjf%fnow(:,:,1  ), sdjf%nrec_a(1) ) 
     652               ENDIF 
     653            ELSE 
     654               IF( sdjf%ln_tint ) THEN   ;   CALL iom_get( sdjf%num, jpdom_unknown, sdjf%clvar, sdjf%fdta(:,:,1,2), sdjf%nrec_a(1) ) 
     655               ELSE                      ;   CALL iom_get( sdjf%num, jpdom_unknown, sdjf%clvar, sdjf%fnow(:,:,1  ), sdjf%nrec_a(1) ) 
     656               ENDIF 
    649657            ENDIF 
    650658         CASE DEFAULT 
Note: See TracChangeset for help on using the changeset viewer.