@@ -8,7 +8,7 @@ module cnvc90
8
8
subroutine cnvc90_init ()
9
9
end subroutine cnvc90_init
10
10
11
-
11
+ # if 0
12
12
!! \section arg_table_cnvc90_run Argument Table
13
13
!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional |
14
14
!! |----------------|-----------------------------------------------------------------------|---------------------------------------------------------|-------|------|-----------|-----------|--------|----------|
@@ -29,7 +29,8 @@ end subroutine cnvc90_init
29
29
!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F |
30
30
!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F |
31
31
!!
32
- SUBROUTINE cnvc90_run (CLSTP ,IM ,IX ,RN ,KBOT ,KTOP ,KM ,PRSI ,
32
+ #endif
33
+ SUBROUTINE cnvc90_run (CLSTP ,IM ,IX ,RN ,KBOT ,KTOP ,KM ,PRSI , &
33
34
& ACV ,ACVB ,ACVT ,CV ,CVB ,CVT ,errmsg ,errflg )
34
35
35
36
USE MACHINE, ONLY :kind_phys
@@ -99,7 +100,7 @@ SUBROUTINE cnvc90_run(CLSTP,IM,IX,RN,KBOT,KTOP,KM,PRSI,
99
100
IF (ACV(I).GT. 0 .) THEN
100
101
! CVB(I) = ACVB(I)
101
102
! CVT(I) = ACVT(I)
102
- c .... convert cvt and cvb to pressures
103
+ ! convert cvt and cvb to pressures
103
104
ITOP = NINT (ACVT(I))
104
105
CVT(I) = PRSI(i,ITOP+1 )
105
106
IBOT = NINT (ACVB(I))
0 commit comments