Changeset 5399
- Timestamp:
- 2015-06-10T17:06:13+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r5132 r5399 1021 1021 INTEGER :: ipk ! temporary vertical dimension 1022 1022 CHARACTER (len=5) :: aname 1023 INTEGER , DIMENSION( 3):: ddims1023 INTEGER , DIMENSION(:), ALLOCATABLE :: ddims 1024 1024 INTEGER , POINTER, DIMENSION(:,:) :: data_src 1025 1025 REAL(wp), POINTER, DIMENSION(:,:) :: data_tmp … … 1044 1044 1045 1045 !! get dimensions 1046 IF ( SIZE(sd%fnow, 3) > 1 ) THEN 1047 ALLOCATE( ddims(4) ) 1048 ELSE 1049 ALLOCATE( ddims(3) ) 1050 ENDIF 1046 1051 id = iom_varid( inum, sd%clvar, ddims ) 1047 1052 … … 1140 1145 CALL ctl_stop( ' fld_weight : unable to read the file ' ) 1141 1146 ENDIF 1147 1148 DEALLOCATE (ddims ) 1142 1149 1143 1150 CALL wrk_dealloc( jpi,jpj, data_src ) ! integer
Note: See TracChangeset
for help on using the changeset viewer.