Changeset 190 for codes/icosagcm/trunk
- Timestamp:
- 05/26/14 23:40:48 (10 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r186 r190 178 178 IF(caldyn_eta==eta_mass) THEN 179 179 CALL init_message(f_ps,req_i1,req_ps) 180 !ELSE180 ELSE 181 181 CALL init_message(f_mass,req_i1,req_mass) 182 182 END IF -
codes/icosagcm/trunk/src/disvert.f90
r186 r190 181 181 !$OMP BARRIER 182 182 !$OMP MASTER 183 IF(ap_bp_present) THEN184 183 status = NF90_CREATE('apbp.nc', NF90_CLOBBER, ncid) 185 184 status = NF90_DEF_DIM(ncid,'lev',llm,lev) … … 215 214 216 215 status = NF90_ENDDEF(ncid) 216 217 IF(ap_bp_present) THEN 217 218 218 219 status=NF90_PUT_VAR(ncid,ilevid, ap(:)+bp(:)*Preff) … … 232 233 status=NF90_PUT_VAR(ncid,hyamid, val(:)/Preff) 233 234 234 235 DO l=1,llm 235 236 val(l)= 0.5*(bp(l+1)+bp(l)) 236 237 ENDDO … … 239 240 status=NF90_PUT_VAR(ncid,P0id, Preff) 240 241 242 END IF 243 241 244 status=NF90_CLOSE(ncid) 242 END IF243 245 !$OMP END MASTER 244 246 !$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.