Changeset 177

Timestamp:

12/13/13 18:18:37 (11 years ago)

Author:

mtort

Message:

Fixed missing apbp.nc with Lagrangian vertical coordinate

File:

• codes/icosagcm/trunk/src/disvert.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/disvert.f90

@@ -170 +170 @@
     INTEGER :: l
     
-    IF(ap_bp_present) THEN
+   
     status = NF90_CREATE('apbp.nc', NF90_CLOBBER, ncid)
     status = NF90_DEF_DIM(ncid,'lev',llm,lev)
@@ -204 +204 @@
 
     status = NF90_ENDDEF(ncid)   
-    
+
+  IF(ap_bp_present) THEN
     status=NF90_PUT_VAR(ncid,ilevid, ap(:)+bp(:)*Preff)
     
@@ -227 +228 @@
  
     status=NF90_PUT_VAR(ncid,P0id, Preff)
+
+  END IF
    
     status=NF90_CLOSE(ncid)
-  END IF
+
   END SUBROUTINE write_apbp