New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5399 – NEMO

Changeset 5399


Ignore:
Timestamp:
2015-06-10T17:06:13+02:00 (9 years ago)
Author:
cbricaud
Message:

change fldread to allow reading of 4 dimensions files ; ticket #1536

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r5132 r5399  
    10211021      INTEGER                           ::   ipk           ! temporary vertical dimension 
    10221022      CHARACTER (len=5)                 ::   aname 
    1023       INTEGER , DIMENSION(3)            ::   ddims 
     1023      INTEGER , DIMENSION(:), ALLOCATABLE ::   ddims 
    10241024      INTEGER , POINTER, DIMENSION(:,:) ::   data_src 
    10251025      REAL(wp), POINTER, DIMENSION(:,:) ::   data_tmp 
     
    10441044 
    10451045      !! get dimensions 
     1046      IF ( SIZE(sd%fnow, 3) > 1 ) THEN 
     1047         ALLOCATE( ddims(4) ) 
     1048      ELSE 
     1049         ALLOCATE( ddims(3) ) 
     1050      ENDIF 
    10461051      id = iom_varid( inum, sd%clvar, ddims ) 
    10471052 
     
    11401145         CALL ctl_stop( '    fld_weight : unable to read the file ' ) 
    11411146      ENDIF 
     1147 
     1148      DEALLOCATE (ddims ) 
    11421149 
    11431150      CALL wrk_dealloc( jpi,jpj, data_src )   ! integer 
Note: See TracChangeset for help on using the changeset viewer.