Changeset 177 for codes/icosagcm/trunk
- Timestamp:
- 12/13/13 18:18:37 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/disvert.f90
r166 r177 170 170 INTEGER :: l 171 171 172 IF(ap_bp_present) THEN172 173 173 status = NF90_CREATE('apbp.nc', NF90_CLOBBER, ncid) 174 174 status = NF90_DEF_DIM(ncid,'lev',llm,lev) … … 204 204 205 205 status = NF90_ENDDEF(ncid) 206 206 207 IF(ap_bp_present) THEN 207 208 status=NF90_PUT_VAR(ncid,ilevid, ap(:)+bp(:)*Preff) 208 209 … … 227 228 228 229 status=NF90_PUT_VAR(ncid,P0id, Preff) 230 231 END IF 229 232 230 233 status=NF90_CLOSE(ncid) 231 END IF 234 232 235 END SUBROUTINE write_apbp 233 236
Note: See TracChangeset
for help on using the changeset viewer.