Changeset 5249 for LMDZ6/trunk/libf/phylmd/interfoce_lim.F90
- Timestamp:
- Oct 22, 2024, 11:35:08 AM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/interfoce_lim.F90
r5084 r5249 10 10 USE mod_phys_lmdz_para 11 11 USE indice_sol_mod 12 USE netcdf, ONLY: nf90_get_var 12 13 13 14 IMPLICIT NONE … … 137 138 CALL abort_physic(modname,abort_message,1) 138 139 ENDIF 139 #ifdef NC_DOUBLE 140 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_oce)) 141 #else 142 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_oce)) 143 #endif 140 ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_oce),start,epais) 144 141 IF (ierr /= NF_NOERR) THEN 145 142 abort_message = 'Lecture echouee pour <FOCE>' … … 154 151 CALL abort_physic(modname,abort_message,1) 155 152 ENDIF 156 #ifdef NC_DOUBLE 157 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_sic)) 158 #else 159 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_sic)) 160 #endif 153 ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_sic),start,epais) 161 154 IF (ierr /= NF_NOERR) THEN 162 155 abort_message = 'Lecture echouee pour <FSIC>' … … 171 164 CALL abort_physic(modname,abort_message,1) 172 165 ENDIF 173 #ifdef NC_DOUBLE 174 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_ter)) 175 #else 176 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_ter)) 177 #endif 166 ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_ter),start,epais) 178 167 IF (ierr /= NF_NOERR) THEN 179 168 abort_message = 'Lecture echouee pour <FTER>' … … 188 177 CALL abort_physic(modname,abort_message,1) 189 178 ENDIF 190 #ifdef NC_DOUBLE 191 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_lic)) 192 #else 193 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_lic)) 194 #endif 179 ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_lic),start,epais) 195 180 IF (ierr /= NF_NOERR) THEN 196 181 abort_message = 'Lecture echouee pour <FLIC>' … … 205 190 CALL abort_physic(modname,abort_message,1) 206 191 ENDIF 207 #ifdef NC_DOUBLE 208 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, nat_lu) 209 #else 210 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, nat_lu) 211 #endif 192 ierr = nf90_get_var(nid,nvarid,nat_lu,start,epais) 212 193 IF (ierr /= NF_NOERR) THEN 213 194 abort_message = 'Lecture echouee pour <NAT>' … … 239 220 CALL abort_physic(modname,abort_message,1) 240 221 ENDIF 241 #ifdef NC_DOUBLE 242 ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, sst_lu) 243 #else 244 ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, sst_lu) 245 #endif 222 ierr = nf90_get_var(nid,nvarid,sst_lu,start,epais) 246 223 IF (ierr /= NF_NOERR) THEN 247 224 abort_message = 'Lecture echouee pour <SST>'
Note: See TracChangeset
for help on using the changeset viewer.