Skip to content

Commit 676b9ab

Browse files
committed
physics/cnvc90.f: add preprocessor statements and fix non-standard code for PGI compiler
1 parent 5f57545 commit 676b9ab

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

physics/cnvc90.f

+4-3
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ module cnvc90
88
subroutine cnvc90_init()
99
end subroutine cnvc90_init
1010

11-
11+
#if 0
1212
!! \section arg_table_cnvc90_run Argument Table
1313
!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional |
1414
!! |----------------|-----------------------------------------------------------------------|---------------------------------------------------------|-------|------|-----------|-----------|--------|----------|
@@ -29,7 +29,8 @@ end subroutine cnvc90_init
2929
!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F |
3030
!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F |
3131
!!
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, &
3334
& ACV,ACVB,ACVT,CV,CVB,CVT,errmsg,errflg)
3435

3536
USE MACHINE, ONLY :kind_phys
@@ -99,7 +100,7 @@ SUBROUTINE cnvc90_run(CLSTP,IM,IX,RN,KBOT,KTOP,KM,PRSI,
99100
IF(ACV(I).GT.0.) THEN
100101
! CVB(I) = ACVB(I)
101102
! CVT(I) = ACVT(I)
102-
c.... convert cvt and cvb to pressures
103+
! convert cvt and cvb to pressures
103104
ITOP = NINT(ACVT(I))
104105
CVT(I) = PRSI(i,ITOP+1)
105106
IBOT = NINT(ACVB(I))

0 commit comments

Comments
 (0)